home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_wordtofind.edge < prev    next >
Text File  |  1994-11-17  |  416b  |  21 lines
  1. /*
  2. ** $VER: Menu_WordToFind.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** put the current word into the find buffer
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* move to the end of the current word, copy it */
  12. position eow
  13. cursor right 1
  14. copy word back resultbuff
  15.  
  16. /* if we got a word then put it into the findstring variable */
  17. if rc==0 then do
  18.     putenvvar _fe_findstring """"result""""
  19. end
  20.  
  21.